Usenet 1993 July/InfoMagic USENET CD-ROM July 1993.ISO/sources/misc/volume7/lp-remote

Text File | 1989-07-08 | 9.5 KB | 338 lines

Newsgroups: comp.sources.misc
Message-Id: <[e-mail]>
From: [e-mail] (Brandon S. Allbery - comp.sources.misc)
Subject: v07i062: a remote printer script for System V
Reply-To: Paul Blackburn <mcvax!oasis.icl.stc.co.uk![e-mail]>

Posting-number: Volume 7, Issue 62
Submitted-by: Paul Blackburn <mcvax!oasis.icl.stc.co.uk![e-mail]>
Archive-name: lp-remote

[I wonder how many times this particular wheel has been re-invented?  I've
done a few of these myself (one each for uucp and WIN/3B); however, it's
abotu time someone actually *posted* one.  ++bsa]

I enclose a remote printer script which I have written and found to be
very handy for sharing expensive printers.

It has been tested on System V but not BSD.
[Won't work under BSD:  they use a different spooler.  ++bsa]
--
Cheers,     "did Bostic really send the fix or was it his evil twin, Skippy?"
       Paul Blackburn, ICL, Lovelace Road, Bracknell, Berkshire, RG12 4SN, UK
[e-mail]  OR  ...!uunet!mcvax!ukc!iclbra!mpb
------------------------------------------cut here---------------------------
#! /bin/sh
# This is a shell archive, meaning:
# 1. Remove everything above the #! /bin/sh line.
# 2. Save the resulting text in a file.
# 3. Execute the file with /bin/sh (not csh) to create the files:
#    remotelp
# This archive created: Fri Jun 16 16:13:24 1989
export PATH; PATH=/bin:$PATH
if test ! -d 'remotelp'
then
    echo shar: creating directory "'remotelp'"
    mkdir 'remotelp'
fi
echo shar: entering directory "'remotelp'"
cd 'remotelp'
echo shar: extracting "'README'" '(2899 characters)'
if test -f 'README'
then
    echo shar: will not over-write existing file "'README'"
else
sed 's/^X//' << \SHAR_EOF > 'README'
XRemote printer script installation notes Sys V          mpb 22 Dec 88
X----------------------------------------------          -------------
X
XPre-amble:
X
XThis script was written to allow a set of small UNIX machines
Xto share two expensive laser printers.
X
XIt makes use of uux to transfer the file-to-be-printed to the
Xmachine that has the printer connected.
X
XIt is tried and tested on System V (both .2 and .3) but not
Xon BSD.
X
X1. Files required
X
X   /usr/spool/lp/model/remote
X   /usr/spool/lp/db
X
X2. Adding a new remote printer
X
X   a. Decide on name for new printer (for example, 'laser')
X   b. Make sure you have a working uucp link to the remote machine
X      and that the remote m/c uucp system will allow the 'lp' command
X      to be executed.
X   c. Become superuser
X   d. Shut down the lp scheduler and set up new printer thus:
X
X      cd /usr/lib
X      ./lpshut
X      ./lpadmin -plaser -mremote -v/dev/null
X      ./accept laser
X      enable laser
X      lpstat -t
X
X   e. Re-start the lp scheduler: ./lpsched
X
X   f. Edit the lp database file (/usr/spool/lp/db) to reflect your remote
X      printer configuration.
X
X   First, make sure there is a line beginning with the name of the printer:
X
Xlaser:pluto:CANON::\033;\033[2 K\033[4 L\033\072\c:\033;\033[15;+;+p\c:
X^^^^^
X
X   Second, make sure the second field is the name of the machine
X   to which your local machine has a uucp link.
X
Xlaser:epcfta:CANON::\033;\033[2 K\033[4 L\033\072\c:\033;\033[15;+;+p\c:
X      ^^^^^^
X
X   The third field is a comment field, use a name to describe the printer.
X
Xlaser:epcfta:CANON lbp8::\033;\033[2 K\033[4 L\033\072\c:\033;\033[15;+;+p\c:
X             ^^^^^^^^^^
X
X   The fourth field is for the name of the printer on the remote machine.
X   Normally this would be the same the local print model (i.e. laser).
X   If the remote computer has a different name for the printer you wish
X   to access then set the name here (blank means same name).
X
X   You can see what printers a machine has available by typing: lpstat -t
X
Xlaser:epcfta:CANON lbp8::\033;\033[2 K\033[4 L\033\072\c:\033;\033[15;+;+p\c:
X                       ^^
X
X   The fifth and sixth fields are optional. They specify escape sequences
X   for small and landscape printing on the remote printer. You will need
X   to refer to the printer manual to check these sequences are correct
X   for your remote printer.
X
X   To use these features you would type:
X
X       lp -dlaser -ol myfile        # for landscape
X
X       lp -dlaser -os myfile        # for small printing
X
X
XHave fun,
X
XPaul Blackburn        |  /~~~\          | Mail:    [e-mail]
XICL, Lovelace Road    | (\@,@/)         |   ...!uunet!mcvax!ukc!iclbra!mpb
XBracknell, Berkshire  |  \_=_/     .zZz |      Phone: [phone] x2648
XRG12 4SN, UK          |  / " \          |         Telex:    22971 STCICL G
X                      |'fly-by-wire' :-)|              Fax: [phone]
SHAR_EOF
fi # end of overwriting check
echo shar: extracting "'db'" '(1273 characters)'
if test -f 'db'
then
    echo shar: will not over-write existing file "'db'"
else
sed 's/^X//' << \SHAR_EOF > 'db'
X# NAME        /usr/spool/lp/db
X# DATE        Thu Jul 14 13:32:12 BST 1988
X# AUTHOR    Paul Blackburn, DRSBC, ICL, Bracknell
X# PURPOSE    Database of 'remote' printers.
X#        This file is grep'ed by remote printer scripts to get
X#        details for a printer: The format is:
X#
X# <printer>:<next>:<description>:<remote>:<small>:<landscape>
X#
X# Where:
X# M    <printer>    = name of printer used in 'lp -d<printer>'.
X#              This field is mandatory.
X#
X# M    <next>        = name of next machine to uux to.
X#              This field is mandatory.
X#
X# O    <description>    = description of printer
X#              This field is optional.
X#
X# O    <remote>    = name of printer of remote machine (usually
X#              same as <printer>, defaults to same)
X#              This field is optional.
X#
X# O    <small>        = printer command to switch to small print
X#              This field is optional.
X#
X# O    <landscape>    = printer command to switch to L/S print
X#              This field is optional.
X#
X# The commands for small and landscape are escape sequences and are
X# 'echo'ed to the printer.
X#
X# NB as ':' is used to delimit fields use '\072' in command sequences
X#laser:pluto:RICOH:lzr:"\033\022D3 \c:\033\022D4 \c:
X
Xlbp8:pluto:CANON::\033;\033[2 K\033[4 L\033\072\c:\033;\033[15;+;+p\c:
Xlaser:gator:RICOH:pookie:"\033\022D3 \c:\033\022D4 \c:
Xdevps:pebbles:PostScript::::
Xml193p:tigger:::::
SHAR_EOF
fi # end of overwriting check
echo shar: extracting "'remote'" '(2982 characters)'
if test -f 'remote'
then
    echo shar: will not over-write existing file "'remote'"
else
sed 's/^X//' << \SHAR_EOF > 'remote'
X# NAME        /usr/spool/lp/model/remote
X# DATE        Thu Jul 14 13:31:26 BST 1988
X# AUTHOR    Paul Blackburn, DRSBC, ICL, Bracknell
X# PURPOSE    This is a 'remote' spooler script for any printer.
X#        This works by sending a 'uux' print request to a neighboring
X#        machine (NEXT).
X#
X#        This is a 'data-driven' script...
X#        /usr/spool/lp/db is used to get data for a particular printer.
X#
X#        (local) Options:
X#
X#            -os    = small print (portrait)
X#            -ol    = small print (landscape)
X
XLOG=/usr/spool/lp/log
XDB=/usr/spool/lp/db
XMODEL=`basename $0`
XTEMP=/usr/tmp/${MODEL}.$$
X
Xif [ ! -f ${DB} ]
Xthen
X    echo "${MODEL}: unable to open ${DB}" >>$LOG
X    echo "${MODEL}: aborted" >>$LOG
X    exit 1
Xfi
X
Xgrep "^${MODEL}:" ${DB} >${TEMP}
X
XDATA=`cat ${TEMP}`
X
Xif [ -z "${DATA}" ]
Xthen
X    echo "${MODEL}: unable to get data from ${DB}" >>$LOG
X    echo "${MODEL}: aborted" >>$LOG
X    rm -f ${TEMP}
X    exit 1
Xfi
X
XNEXT=`cut -f2 -d":" <${TEMP}`
XDESC=`cut -f3 -d":" <${TEMP}`
XRMODEL=`cut -f4 -d":" <${TEMP}`
Xif [ -z "${RMODEL}" ]
Xthen
X    RMODEL=${MODEL}
Xfi
XSMALL=`cut -f5 -d":" <${TEMP}`
XLAND=`cut -f6 -d":" <${TEMP}`
Xrm -f ${TEMP}
X
Xecho "${MODEL}: DESC=${DESC}, NEXT=${NEXT}" >>$LOG
X
Xif [ -z "${NEXT}" ]
Xthen
X    echo "${MODEL}: unable to determine next machine" >>$LOG
X    echo "${MODEL}: aborted" >>$LOG
X    exit 1
Xfi
X
XTITLE=
XOPTIONS=
XCOPIES=
X
Xif [ -n "$3" ]
Xthen
X    TITLE="-t\"$3\""
Xelse
X    user=`grep "^$2:" /etc/passwd | line | cut -d: -f5`
X    if [ -z "$user" ]
X    then
X        user=$2
X    fi
X    TITLE="-t\"${user}\""
Xfi
X
Xif [ -n "$4" ]
Xthen
X    COPIES=-n$4
Xfi
Xparam5=$5
X
Xshift;shift;shift;shift;shift
Xfiles="$*"
X
X# Split out local options from options for remote lp...
X
XLOCALOPT=""
Xfor i in ${param5}
Xdo
X    echo "${MODEL}: option=${i}" >>${LOG}
X    case "${i}" in
X        s|l ) # local options
X            LOCALOPT="${LOCALOPT} ${i}"
X            ;;
X        * ) # other options simply passed to remote lp
X            OPTIONS="${OPTIONS} -o${i}"
X            ;;
X    esac
Xdone
X
XOPTIONS="${OPTIONS} -oh"
Xif [ -z "${LOCALOPT}" ]
Xthen
X    cat ${files}|uux - -n ${NEXT}!lp ${COPIES} ${OPTIONS} -d${RMODEL}
Xelse
X    LOCALOPT=`echo ${LOCALOPT}`
X    for i in "${LOCALOPT}"
X    do
X        echo "${MODEL}: local option=${i}" >>${LOG}
X        case "${i}" in
X            s ) # small print (portrait)
X                if [ -z "${SMALL}" ]
X                then
X                    echo "${MODEL}: no small cmd\c" >>${LOG}
X                    echo " found in ${DB}" >>${LOG}
X                else
X#                    echo "${MODEL}: small cmd:" >>${LOG}
X#                    echo "${SMALL}" | od -cx >>$LOG
X                    echo "${SMALL}"
X                fi
X                ;;
X            l ) # small print (landscape)
X                if [ -z "${LAND}" ]
X                then
X                    echo "${MODEL}: no land cmd\c" >>${LOG}
X                    echo " found in ${DB}" >>${LOG}
X                else
X#                    echo "${MODEL}: land cmd:" >>${LOG}
X#                    echo "${LAND}" | od -cx >>$LOG
X                    echo "${LAND}"
X                fi
X                ;;
X            * ) # unknown!
X                echo "${MODEL}: unknown local option" >>${LOG}
X                ;;
X        esac
X    done|cat - ${files}|uux - -n ${NEXT}!lp ${COPIES} ${OPTIONS} -d${RMODEL}
Xfi
X
Xecho "${MODEL}: COPIES=${COPIES}, OPTIONS=${OPTIONS}, TITLE=${TITLE}" >> ${LOG}
Xecho "${MODEL}: warning - ignoring title" >> ${LOG}
Xecho "${MODEL}: completed on `date` for ${NEXT}" >> ${LOG}
Xexit 0
SHAR_EOF
chmod +x 'remote'
fi # end of overwriting check
echo shar: done with directory "'remotelp'"
cd ..
#    End of shell archive
exit 0